home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE07 / SERVER / LISTING3.SQL < prev   
Encoding:
Text File  |  1996-01-06  |  456 b   |  18 lines
  1. CONNECT "c:\iblocal\examples\myempl.gdb" 
  2.   USER "SYSDBA" PASSWORD "masterkey";
  3.  
  4. SET TERM ^;
  5.  
  6. CREATE PROCEDURE Get_Employees_ByDept(Dept char(3))
  7. RETURNS(Emp_No smallint, First_Name varchar(15), 
  8.         Last_Name varchar(20), Phone_Ext varchar(4))
  9. AS
  10. BEGIN
  11.   FOR
  12.     SELECT Emp_No, First_Name, Last_Name, Phone_Ext
  13.       FROM Employee
  14.       WHERE Dept_No = :Dept
  15.       INTO :Emp_No, :First_Name, :Last_Name, :Phone_Ext
  16.   DO SUSPEND;
  17. END^
  18.